Profile of (eval 394)[Sub/Quote.pm:3]

Filename	(eval 394)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 25 statements in 288µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	17µs	63µs	JSON::Schema::Modern::Document::OpenAPI::_set_json_schema_dialect
1	1	1	9µs	24µs	JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.254
1	1	1	4µs	4µs	Method::Generate::Accessor::_Generated::BEGIN@12.255
1	1	1	4µs	15µs	Method::Generate::Accessor::_Generated::BEGIN@39.256

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $isa_check_for_json_5fschema_5fdialect = ${$_[1]->{"\$isa_check_for_json_5fschema_5fdialect"}};
4	1	0s			my $coerce_for_json_5fschema_5fdialect = ${$_[1]->{"\$coerce_for_json_5fschema_5fdialect"}};
5	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
6					package JSON::Schema::Modern::Document::OpenAPI;
7	2	35µs	2	39µs	# spent 24µs (9+15) within JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.254 which was called: # once (9µs+15µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 24µs making 1 call to JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.254 # spent 15µs making 1 call to warnings::unimport
8					# spent 63µs (17+46) within JSON::Schema::Modern::Document::OpenAPI::_set_json_schema_dialect which was called: # once (17µs+46µs) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 127 of JSON/Schema/Modern/Document/OpenAPI.pm sub _set_json_schema_dialect {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 4µs within Method::Generate::Accessor::_Generated::BEGIN@12.255 which was called: # once (4µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	0s			$^H = 1762;
14	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	3µs			%^H = (
16					);
17	1	58µs	1	4µs	} # spent 4µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.255
18					# END quote_sub PRELUDE
19	2	4µs			scalar do { my $value = do {
20	1	2µs			local $Method::Generate::Accessor::CurrentAttribute = {
21					init_arg => undef(),
22					name => "json_schema_dialect",
23					step => "coercion",
24					};
25	1	1µs			(my $_return),
26					(my $_error), (my $_old_error = $@);
27	1	0s			(eval {
28	1	2µs	1	43µs	($@ = $_old_error), # spent 43µs making 1 call to JSON::Schema::Modern::Document::OpenAPI::__ANON__[JSON/Schema/Modern/Document/OpenAPI.pm:56]
29					($_return =
30					$coerce_for_json_5fschema_5fdialect->($_[1])),
31					1
32					} or
33					$_error = CORE::ref $@ ? $@ : "coercion for \"json_schema_dialect\" failed: ".$@);
34	1	1µs			($@ = $_old_error),
35					(defined $_error and CORE::die $_error);
36	1	1µs			$_return;
37					}
38					;
39	4	172µs	4	29µs	# spent 15µs (4+11) within Method::Generate::Accessor::_Generated::BEGIN@39.256 which was called: # once (4µs+11µs) by Sub::Quote::_clean_eval at line 39 (do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) or Type::Tiny::_failed_check($isa_check_for_json_5fschema_5fdialect, "InstanceOf[\"Mojo::URL\"]", $value, "attribute_name","json_schema_dialect","attribute_step","isa check","mgaca","0","varname","\$self->{\"json_schema_dialect\"}"); $value }), # spent 15µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39.256 # spent 11µs making 1 call to warnings::unimport # spent 2µs making 1 call to UNIVERSAL::isa # spent 1µs making 1 call to Scalar::Util::blessed
40					($_[0]->{"json_schema_dialect"} = $value),
41	1	2µs			($_[0]->{"json_schema_dialect"}),
42					} }
43	1	1µs			$$_UNQUOTED = \&_set_json_schema_dialect;
44					}
45	1	4µs			1;
46
47					;